Sum of Digits of a Given Number in Vb.Net